home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / CAD / PKEY11_1.ARJ / TC.LSP < prev    next >
Text File  |  1992-03-14  |  1KB  |  40 lines
  1. ;Modified version of ct.lsp for release 11
  2. ;
  3. ;                     ********Patrick J. McKee, author********
  4. ;                       ****Copyright 1992, Power Key tm****
  5. ;
  6. (setq oer   *error*  *error*  err2)
  7. (setq set1 (ssget))
  8. (if(= set1 nil)(err))
  9. (setq len (sslength set1))
  10. (setq c 0)
  11. (if (> len 0)
  12. (progn
  13. (setq kp (strcase
  14. (getstring "Change Rotation/Oblique/Height/Width/Style/<T>ext: ")))
  15. (cond
  16. ((OR (= kp "T") (= kp ""))
  17. (setq t1 (getstring T "Enter new text string: "))
  18. (setq sub1 1))
  19. ((= kp "H")
  20. (setq t1 (getreal "Enter new text height: "))
  21. (setq sub1 40))
  22. ((= kp "R")
  23. (setq t1 (* pi (/ (getreal "\nNew rotation angle: ") 180.0)))
  24. (setq sub1 50))
  25. ((= kp "O")
  26. (setq t1 (* pi (/ (getreal "\nNew obliquing angle: ") 180.0)))
  27. (setq sub1 51))
  28. ((= kp "W")
  29. (setq t1 (getreal "Enter new text width: "))
  30. (setq sub1 41))
  31. ((= kp "S")
  32. (setq t1 (getstring "Enter new text style: "))
  33. (setq sub1 7))
  34. (T (setq sub1 0)))
  35. (if (> sub1 0)(progn(while (< c len)
  36. (setq ename (ssname set1 c))
  37. (setq te (entget ename))
  38. (if (= (cdr (assoc 0 te)) "TEXT") (sub sub1 t1))
  39. (entmod te)
  40. (setq c (1+ c)))))))(princ)